// ?????? ????????? ? ??? (Script to start being on OEP) 

Var oep
var f1
var p1
var p2

mov oep,eip
mov eip,401000

l1:
find eip,#68????0000E8????5400# 
cmp $RESULT,0
je end
mov f1,$RESULT
mov eip,f1
mov p1,f1
add f1,A
bphws f1,"x"
run
bphwc f1
fill p1,A,90
find eip,#68????0000E8????5400#
cmp $RESULT,0
je end
mov p2,$RESULT
fill p2,A,90
jmp l1

end:
mov eip,oep
MSG "Decrypt Suseful"
ret